home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 9 / applic / maabl3.bas < prev    next >
Encoding:
BASIC Source File  |  1986-04-17  |  2.3 KB  |  62 lines

  1. 10    poke systab+24,1 : ' Let's not see window...
  2. 20    clearw 2 : ' while we're clearing it
  3. 30    poke systab+24,0
  4. 40    title$ = "ATARI CENTRAL ST ONLY USERS GROUP (602) 881-O539"
  5. 50    gosub newtitle
  6. 70    GOTO 200
  7. 80    newtitle: ' New title for OUTPUT window
  8. 90    poke systab+24,1 : ' Don't need to see this...
  9. 100   a# = gb : ' Fetch globals address
  10. 110   gintin = peek(a#+8) : ' AES int_in array
  11. 120   poke gintin+0,peek(systab+8) : ' OUTPUT window handle
  12. 130   poke gintin+2,2 : ' we're changing it's name
  13. 140   s# = gintin+4 : ' DBL address for long poke
  14. 150   title$ = title$ + chr$(0) : ' assure zero terminator
  15. 160   poke s#,varptr(title$) : ' title of new window
  16. 170   gemsys(105) : ' wind_set AES call
  17. 180   poke systab+24,0 : ' Turn things back on
  18. 190   return
  19. 200   REM ADDRESS LABELER BY JOHN BUCKNER-PUBLIC DOMAIN-1986
  20. 210   LPRINT CHR$ (27);CHR$ (69);CHR$ (27);CHR$ (71)
  21. 220   CLOSEW 0:CLOSEW 1:CLOSEW 3:FULLW 2:CLEARW 2:WIDTH 76
  22. 230   GOTOXY 22,7:PRINT "RETURN ADDRESS LABELER"
  23. 240   GOTOXY 25,8:PRINT "BY JOHN BUCKNER"
  24. 250   GOTOXY 14,10:PRINT "FROM ATARI CENTRAL-ST ONLY USERS GROUP"
  25. 260   GOTOXY 25,11:PRINT "(6O2) 881-O539"
  26. 270   GOTOXY 25,9:PRINT "COPYRIGHT 1986"
  27. 280   GOTOXY 26,13:PRINT "PUBLIC DOMAIN"
  28. 290   GOTOXY 25,14:PRINT "DISTRIBUTE FREE"
  29. 300   FOR T=1 TO 8000
  30. 310   NEXT T
  31. 320   CLEARW 2
  32. 330   DIM NAME$ (25),ADDRESS$ (25),STATE$ (25),ZIP$ (8),CITY$ (25)
  33. 340   GOTOXY 0,0:PRINT "HOW MANY LABELS WOULD YOU LIKE";
  34. 350   INPUT A
  35. 360   PRINT "NAME";:INPUT NAME$
  36. 370   PRINT "ADDRESS ";:INPUT ADDRESS$
  37. 380   PRINT "CITY ";:INPUT CITY$
  38. 390   PRINT "STATE ";:INPUT STATE$
  39. 400   PRINT "ZIP ";:INPUT ZIP$
  40. 410   LPRINT
  41. 420   LPRINT NAME$
  42. 430   LPRINT ADDRESS$
  43. 440   LPRINT CITY$ ;", ";
  44. 450   LPRINT STATE$
  45. 460   LPRINT "      ";ZIP$
  46. 470   LPRINT
  47. 480   CLEARW 2:GOTOXY 0,0:PRINT "IS THE LABEL POSITIONED PROPERLY Y/N ";
  48. 490   INPUT ANSWER$
  49. 500   IF ANSWER$ = "N" THEN GOTO 410
  50. 510   FOR G = 1 TO A
  51. 520   LPRINT 
  52. 530   LPRINT NAME$
  53. 540   LPRINT ADDRESS$
  54. 550   LPRINT CITY$;", ";STATE$
  55. 560   LPRINT "       ";ZIP$
  56. 570   LPRINT
  57. 580   NEXT G
  58. 590   ERASE NAME$,ADDRESS$,CITY$,STATE$,ZIP$
  59. 600   PRINT "AGAIN  Y/N ";:INPUT BNS$
  60. 610   IF BNS$="Y" THEN GOTO 320
  61. 620   END
  62. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə